home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Games / Xconq 7.0d16 / lib / modern.g < prev    next >
Encoding:
Text File  |  1993-12-20  |  2.3 KB  |  152 lines  |  [TEXT/MPS ]
  1. (game-module "modern"
  2.   (title "Modern Times")
  3.   (blurb "Economics and politics of today's world")
  4.   (variants (see-all true))
  5.   )
  6.  
  7. (unit-type engrs (image-name "soldiers"))
  8.  
  9. (unit-type oil-well (image-name "tower")) ; for now
  10.  
  11. (unit-type city (image-name "city20"))
  12.  
  13. (define places (oil-well city))
  14.  
  15. (material-type food)
  16. (material-type oil)
  17. (material-type people)
  18.  
  19. (include "stdterr")
  20.  
  21. ;;; Static relationships.
  22.  
  23. (table unit-capacity-x
  24.   (city engrs 1)
  25.   (city oil-well 1)
  26.   )
  27.  
  28. (table unit-storage-x
  29.   (city food 900)
  30.   (city oil 900)
  31.   )
  32.  
  33. (table unit-size-in-terrain
  34.   (u* t* 1)
  35.   (city t* 16)
  36.   )
  37.  
  38. (add t* capacity 16)
  39.  
  40. (table terrain-storage-x
  41.   (t* oil 100)
  42.   )
  43.  
  44. ;;; Actions.
  45.  
  46. (add engrs acp-per-turn 1)
  47.  
  48. (add city acp-per-turn 1)
  49.  
  50. ;;; Movement.
  51.  
  52. (add places speed 0)
  53.  
  54. ;;; Construction.
  55.  
  56. (add engrs cp 2)
  57.  
  58. (add oil-well cp 6)
  59.  
  60. (table acp-to-create
  61.   (engrs oil-well 1)
  62.   (city engrs 1)
  63.   (city oil-well 1)
  64.   )
  65.  
  66. (table cp-on-creation
  67.   (engrs oil-well 3)
  68.   (city engrs 1)
  69.   (city oil-well 1)
  70.   )
  71.  
  72. (table separation-to-create-max
  73.   (city oil-well 2)
  74.   )
  75.  
  76. (table acp-to-build
  77.   (engrs oil-well 1)
  78.   (city engrs 1)
  79.   (city oil-well 1)
  80.   )
  81.  
  82. (table cp-per-build
  83.   (engrs oil-well 3)
  84.   (city engrs 1)
  85.   (city oil-well 1)
  86.   )
  87.  
  88. (table separation-to-build-max
  89.   (city oil-well 2)
  90.   )
  91.  
  92. ;;; Automatic production.
  93.  
  94. (table base-production
  95.   ((oil-well city) oil (20 10))
  96.   )
  97.  
  98. (table base-consumption
  99.   ((oil-well city) oil (1 10))
  100.   )
  101.  
  102. (table hp-per-starve
  103.   (u* oil 1.00)
  104.   )
  105.  
  106. (table out-length
  107.   (oil-well oil 5)
  108.   )
  109.  
  110. (table in-length
  111.   (city oil 5)
  112.   )
  113.  
  114. ;;; Initial random setup.
  115.  
  116. (add city start-with 1)
  117. (add city start-with #| independent-near-start |# 5)
  118. (set country-radius-min 3)
  119. (set country-separation-min 16)
  120. (set country-separation-max 48)
  121. ; Try to get countries on the coast.
  122. (add (sea plains) country-terrain-min (1 4))
  123.  
  124. (table favored-terrain
  125.   (u* t* 0)
  126.   (city plains 100)
  127.   (city land-t* 20)
  128.   (city plains 40)
  129.   )
  130.  
  131. (table independent-density (city plains 100))
  132.  
  133. (add land-t* country-people-chance 90)
  134. (add plains country-people-chance 100)
  135.  
  136. (add land-t* independent-people-chance 50)
  137.  
  138. (table unit-initial-supply
  139.   (u* m* 9999)
  140.   (city oil 100)
  141.   )
  142.  
  143. (table terrain-initial-supply
  144.   (t* oil 100)
  145.   )
  146.  
  147. (game-module (design-notes (
  148.   "A detailed game of modern problems."
  149.   ""
  150.   "(should have a many-nukes-available option)"
  151.   )))
  152.